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All Rights Reserved 


Technical Systems Consultants 
Box 2574 W. Lafayette IN 47906 


MICRO BASIC PLUS 


COPYRIGHT 1976 by 
Technical Systems Consultants 


|. | NTRODUCTI ON: 


This version of BASIC is a subset of the statements and commands usually 
available on large machines. The purpose of this manual is not to teach BASIC 
but simply to demonstrate the syntax and sample usage of MICRO BASIC PLUS 
Particular attention should be paid to Appendix C which shows how to adapt 


this programto your particular system 


As in all TSC software, a great effort has been put forth in testing to 
eliminate "bugs" in the code. This however is no guarantee of perfect code 
lf a suspected bug is spotted, please jot down the circumstances involved and 
send it to us. We will do our best to send out errata sheets with all patches 


to owners of MICRO BASIC PLUS if necessary. 


ll, GENERAL | NFORMATI ON: 


A. The initial starting address is hex 0100. To restart after returning 
to monitor program, address hex 0103 should be used. This is set up 


automatically | f MIKBUG is being used 
B. The prompt character is "!". 


C Line numbers must be between 0 and 9999 (4 digits maximum). I mbedded 


Spaces are not permitted 


Numbers in arithmetic expressions must be between -99999 and +99999 
lf a larger number is entered, the least significant 5 digits are the 


only ones used 


Spaces are not permitted internal to numbers or keywords but may be 


used freely elsewhere 


All keywords (PRINT, GOTO, etc.) must be followed by a space or non 


alphabetic character 


Expressions are evaluated left to right with all operator precedence 
being equal. Parenthesis should be used to group sub-expressions. The 
allowed operators are +, -, *, /, and *. There are several functions 


available also. * is used for exponentiation. 


Variables are the 26 letters "A" through "Z". Variables may be 
DIMENSIONED either single (maximum = 98) or double 


(maximum = 98 x 98) 


Multiple statements per line are permitted using a ":" as the 


separator 


Calculator mode of operation is permitted by typing a statement 
without a line number. MICRO BASIC PLUS will immediately perform the 


operation. Example 
PRINT 4*7 


will print the answer 28 and then return with the prompt 


lll. EDITING FEATURES: 


A, Lines may be entered in any Sequence. The interpreter automatically 
puts themin ascending order. It is recommended that multiples of 10 


be used so if insertions are necessary they can be easily done 
B. Line numbers should begin in column 1. 


G: To delete an existing line simply type that line number followed by a 


carriage return, 
D. Backspacing is done using “control H" 
E. To delete the current line being entered, type "control X" 
F. Lines may be inserted, deleted, or added at anytime. 


G. Line lengths are limited to 72 characters. If this is exceeded the 


line entered is thrown away and a new prompt will be issued 


|V. COMMANDS: 


A, SCRATCH is used to delete the current users program from memory as 
well as clear all variables. Normally used without a line number but 


may appear in program with suicidal results 


B. RUN is used to start executing the users program with the lowest 


numbered line. May be used with a line number as wel! 
Gs MONITOR is used to return to your monitor system 
D. LIST is used to list the users program. Several forms exist 
1 LIST c.r. - Lists the entire program 
2. LIST X c.r. - Lists line X. 


3. LIST X, Yoc.r. - Lists Y lines starting at line X 





4. LIST X, c.r. - Lists entire program starting at line X 


E. BREAK: The "BREAK" key is used any time a BASIC programis running or 
a programis being listed and you wish it to stop. Hitting the 
"BREAK" key will cause current operation to halt and the prompt to be 


issued. 


V. ASSIGNMENT STATEMENTS: 


A. LET 


Li Form: 
LET (variable) = (expression) 
2. Examples: 
10 LET A = 200 
20 LET B - C*62 
3% The word "LET" is optional 
Example: 
30 D = 25 + A/B 
B. READ and DATA 


ibe DATA statements contain a list of expressions or constants 
Separated by commas and must be entered all on the same line 
Each DATA statement "executed" becomes the current DATA 
Statement, thus allowing several different DATA statements 


throughout the program 


2. READ is used to assign variables the values in a DATA statement 
The first READ causes the first value of the current DATA 
Statement to be assigned to the variable of the READ statement 


The second READ gets the second value, etc 


3: lf all data of the current DATA statement has been read, the next 
READ statement will go back and read the first value of that DATA 


statement 
4, Example: 
10 DATA 2, 10, 12, -65/3, 42 +A 
20 READ X, Y, Z 


this results in X = 2, Y = 10, Z =12. The next READ would cause 


the value of -65/3 to be assigned 
C. RESTORE 


Ly, Used in conjunction with READ and DATA statements. When a RESTORE 
Statement is executed, it causes the "pointer" which is pointing 
to the next piece of data in a DATA statement to move (be 
restored) to the first value of that data statement. May be 


thought of as restoring the "pointer" to its original position. 
2. Example: 
DATA 2, 4, 6, 8 


READ X, 


~< 


RESTOR 
READ A 


This results in X = 2, Y = 4 and A = 2 due to the RESTOR 


statement 
D. INPUT 
1s, The |NPUT statement allows data entry during program execution 
2. Form 


INPUT "(optional string)", (variable), (variable) 


10. 


11, 


The string portion of INPUT will type out the string on the 


terminal before issuing the prompt. 


The |NPUT prompt is a question mark, signifying BASIC is ready to 


accept input. 


As many strings and variables may be used on one INPUT as 


desired. 


|f more than one value is to be input after the "?", the values 


should be separated by a comma. 


The number of values entered must exactly equal the number of 
variables of the INPUT statement. If too few are entered another 
"?" will be output. If too many are entered, the excess will be 


ignored. 


After the last value is Input, a "carriage return" should be 


entered. This terminates the input. 
Only constants may be entered. 


lf a mistake is made on an entry a "control X" may be typed to 
delete that particular entry and a "?" will be output. This can 
only be done before the comma or carriage return is entered and 


only deletes the last value entered, 
Examples: 

10 INPUT A 

20 INPUT "NUMBER", X 

30 INPUT B, C, D 


When line 20 is executed, the word NUMBER will be printed on the 
terminal followed by a "?". If 25 is then typed, X will be 


assigned the value 25. 


12. The INPUT statement may also be used to stop the program but not 


ask for any values 
Example: 
50 INPUT "STOP" 


This causes STOP to be printed, no "?" will be issued. To restart 


execution, a carriage return must be entered 


VI. OUTPUT STATEMENT 


A. PRINT 

14 Form: 

PRINT (list) 

2. The (list) may be a list of variables, constants, or 
expressions in which case these values will be output to the 
termi nal 

3y The (list) may also contain strings of alphanumeric 
characters enclosed in quotes ("). In this case the string 
would be output to the terminal 

4, The (list) may be blank in which case a blank line will be 


output, (skip a line). 
5. Formatting Out put 


a. There are 9 print zones available per line, each being 8 


columns wide 


b. To make use of the print zones, items in the print list 
should be followed by a comma. When this is done, the 
next itemto be printed will start in the next available 
zone. If 2 successive commas are used, a print zone wi| 
be skipped. If an alphanumeric string is output and 


extends into part of a following zone, the comma wi | 


cause the next printed itemto start in the next 


unoccupied zone. 


C. Semicolons may be used instead of commas. The semicolon 
does not cause the next itemto be in the next available 
zone but instead it will be printed in the next 


available column (no spacing). 


d. Two output formatting functions are also permitted, TAB 


and SPC, See function description for their use. 
6. Examples: 
10 PRINT "THE ANSWER IS"; A 
20 PRINT "X ="; X, "Y =": Y 


30 PRINT A, B, C,, D 





40 PRINT 2*(R+S), 62*4, A 


VII. SUBSCRIPTED VARIABLES: 


A. GENERAL | NFORMATI ON 


li Subscripted variables should be thought of as arrays, vectors, 


matrices, or a variable with several values (memory locations). 


2. All arrays may be either one or two dimensions. 
3, The lowest subscript value is 0. 
4, The maximum value is 98. 


B. DIMENSION statement. 


1. All subscripted variables must first appear in a DIMENSION 
Statement. (DIM). It is good practice to put all DIM statements 


at the start of the program. 


VIL I 


A 


DIM is used to set the maximum size of an array 
Only constants can be used in DIM statements 
Examples: 
10 DIM A(8), B(6, 6) 
20 DIM X(20, 4) 
30 DIM X(5), Y(10), Z2(98) 
When using subscripted variables they should have the form 
X(expression) or X(expression, expression) 


where X is the variable and the expression can be any valid 
expression including other subscripted variables. If the value of 
the subscript exceeds the value for which that variable was 


DIMENSIONED, an error will result 
Examples: 

A(3) 

B(6+R, S(16)) 


Z(5, A(B)) 


TRANSFER OF CONTROL STATEMENTS 


GOTO 


Form 
GOTO (line no.) 


The line number may be represented as a variable, constant, or 


expression. 


GOTO causes transfer of control to the line specified 


10 


4, lf used on multiple statements per line it should be the last 
statement. 
e Examples: 
10 GOTO 100 


20 GOTO 200 + B 


B. GOSUB 
1s, Form: 
GOSUB (line no.) 
es The line number may be represented as a variable, constant, or 
expression. 
3, lf used on multiple statements per line it should be the last 
Statement. 
4, Examples: 
35 GOSUB 200 
40 GOSUB 102 +B 
5. Subroutines may be nested as deep as the stack will permit. 
C. RETURN 
ies Used to return froma subroutine 
2. Returns to next line numbered statement following the calling 
GOSUB. 


D. ON statement 
1. Used with GOTO or GOSUB 
2. Forms: 
ON (expression) GOTO (expression),..., (expression) 


ON (expression) GOSUB(expression),..., (expression) 
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3 The value of the expression after ON is used to determine which 
of the expressions following the GO- should be evaluated to form 
the destination line number. The first expression is selected on 


a value of 1, the second for 2, etc 


4, The maximum number of expressions is 9, 

Of lf the value is less than 1 or greater than the number of 
expressions provided, the last one listed will be used. 

6. Examples: 


ON A GOTO 100, 200, 300 


lf A =I! control will be transfered to line 100; if A = 2, 200, 
etc. 
1X. CONDI TIONAL STATEMENT 


A, |F-THEN 
i Form 
1F X1 OP X2 THEN ST 


where Xl and X2 can be constants, variables, or expressions and 
ST is any MICRO BASIC PLUS statement. OP is a comparison operator 


(see below) 


2. Transfer of control is conditional depending on the result of the 
comparison of XI and X2. If the comparison is true, the statement 
following the THEN is executed. If the comparison is false, the 


statement following the THEN is ignored 


3: THEN is optional 


4 


5 
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Comparison operators are the following 





SYMBOL EXAMPLE 
= A=B 
< A<B 
> A>B 
<= A<=B 
>= A>=B 
<> A<>B 
Examples 


MEANING 
A equals B 
A is less than B 
A is greater than B 
Ais less than or equal to B 
A is greater than or equal to B 


A is not equal to B 


10 |F A<B THEN PRINT "YES" 


15 |F 2*C <= D+t5 LET C = 5 


20 |F A<B IF C<D PRINT "NO" 


25 |F 12>X + (2*A) THEN 200 


The last example 1s used to GOTO line 200 (GOTO is not needed) 


X. PROGRAM LOOPS 


A. 


FOR and NEXT 


1 


Form: 


FOR C = Cl TO C2 


where C is the contro 


C2 is its final value 


The index variable can 


STEP is optional and if 


+1. 


STEP C3 


or index variable, Cl is its initial value 


and C3 is the increment size 


not be a DIMENSIONED variable. 


left off the value of C3 is assumed to be 
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4, STEP may be positive for forward counting or negative for backwards 
counting. 

5. All FOR-NEXT loops are executed at least once 

6. Loops may be nested as deep as memory will permit 

7, While nesting loops, no index variable should be used more than 
once 

8. Loops may be exited at any time. 

9, Loops may be reentered if not previously indexed out 


10. NEXT is used to close the loops and should state the index variable 


of that loop. 
11. Examples 


10 FOR A = 1 TO 10 


20 NEXT A 
50 FOR | = D*2 TO 100 + 3 STEP 2 
60 NEXT 
12. If expressions are used for Cl, C2, and C3, they will be evaluated 


each time through the loop 


XI. MISCELLANEOUS STATEMENTS 


A. REMARK 
Li Used to insert remarks into programs 
2 Skipped during execution 
3, Exampl e: 
10 REMARK TEST 1 


20 REM THIS 1S A REMARK 
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1. Used to terminate a MICRO BASIC PLUS program. 
C. EXTERNAL 

2. Used to execute machine code subroutines. 

3. See Appendix D for details of its use. 


XI 1. FUNCTIONS: 


A. ARITHMETIC FUNCTIONS 
1. SGN has the form: 
SGN( X) 


where X may be any arithmetic expression. This function returns a 
value of +1 for positive arguments, 0 if X is zero, and -1 for 


negative arguments. 
2. ABS returns the absolute value of its argument. It has the form: 
ABS (X) 
where X iS any expression 


3. RND should be treated as a variable rather than a function since it 
has no argument. Whenever RND appears in an expression it will be 


replaced by a random number between 0 and 99, 
4, Examples: 


LET A = SGN(100- 8B) 


wo 
I 


ABS( R*100/ C) 


=~) 
I 


65 + RND 
B. OUTPUT FORMATTING FUNCTIONS. 
1. TAB is used to move to a desired print column. It has the form 


TAB (X) 
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where X can be any expression. If the value of the argument is less 


than or equal to the column presently in, the TAB will be ignored. 


2. SPC is used to output a specified number of spaces. It has the 


form: 
SPC (X) 
where X is any expression. 
3, Examples: 
10 PRINT TAB(6); A 
prints the value of A starting in column 6. 
20 PRINT X; SPC(5); Y 
prints 5 spaces between the values of X and Y. 
30 PRINT TAB(A+B); "*"; SPC(10); X 


XI 11. OTHER | NFORMATI ON: 
A. All keywords may be written using the first 3 letters. 


(PRINT = PRI, INPUT = INP, etc.) 


B. Some syntax checking is performed by MICRO BASIC PLUS during initial 


line entry. 


Gi When using the exponentiation operator (%) only 2 digits are allowed 


for the exponent (largest exponent is 99), 
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Keep in mind that large dimensioned variables eat up memory quickly 
For example, to dimension A as A(98, 98) requires 29405 bytes of 
storage! To determine the amount of memory used, use the following 


formula: 
Number of bytes = 3 * ((1st dimension + 1) * 


(2nd dimension + 1)] + 2 


ERROR NUMBER 
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21 


22 


23 


24 


31 


32 


40 


45 


51 


62 


73 


81 


90 


99 
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APPENDIX A 


ERROR CODES FOR MICRO BASIC PLUS 


MEANING 
Unrecognizable keyword 
lllegal variable 
No line number referenced by GOTO or GOSUB 
Expression syntax, unbalanced parens, or dimension error 
Expression expected but not found 
Divided by zero 
Arithmetic overflow 
Expression too compl ex 
Syntax error in PRINT statement 
Missing closing quote in printed string 
Bad DIM statement 
Syntax error in | NPUT statement 
Syntax error in READ statement 
Syntax error in IF statement 
RETURN with no GOSUB 
Error with FOR- NEXT 
Memory overflow 


"BREAK" detected 


18 


APPENDIX B 


DUMPING AND LOADING PROCEDURES 


|. DUMPING THE PROGRAM 


After entering your MICRO BASIC PLUS programit is usually desirable to 
dump it to paper or cassette tape. If using Motorola's MIKBUG the procedure 
is extremely simple. First, from BASIC, enter the command MON to return to 
the monitor. MICRO BASIC PLUS has already done all the work of setting the 
punch limits. All that is necessary once in MIKBUG is to type "P" after 
turning on your recording device. For other systems, see Appendix C. 
||, LOADING THE PROGRAM 

While in MICRO BASIC PLUS type MON to return to MIKBUG. Prepare to load 
your cassette or paper tape as usual. Type "L" (MIKBUG's load function). 
When complete, type "G" and BASIC will return with the prompt. A quick LIST 
will verify your load. MICRO BASIC PLUS should always be reentered at 


location hex 103 to avoid clearing memory. 
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APPENDIX C 


ADAPTING MICRO BASIC PLUS 


i This section is primarily intended for those who own systems not based 
around Motorola's MIKBUG, and hopefully gives enough information for 
adaptation. MICRO BASIC PLUS has been assembled for MIKBUG systems con- 
taining 8K of memory. |f a different amount is available (as little as 
4K may be used) the “memory end" should be adjusted accordingly as stated 
in part 11 below. (If EXT will not be used and a 4K systemis owned, set 


memory end (locations O10F - 0110) to OF and FF respectively) 


Il, MEMORY END is stored in locations O|OF and 0110. It is now set to 
LEFF which requires an 8K system. If your systemis of different size, 
this number should be adjusted accordingly. BASIC will not run correctly 
if this is not set up for your system. Space should also be allowed for 


a stack (= 128 BYTES) + any 1/0 patches if MIKBUG is not being used 


lll. BREAK is presently referenced at location 010C. It jumps to an 
internal break routine at location 0452. This routine monitors MI KBUG's 
PIA for activity such that hitting the "BREAK" key during program 
execution or listing will immediately return to the main BASIC loop and 


respond with the prompt 


lf using an ACIA this could be written to look for a special 


character, for example control C, before kicking out 
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IV, OUTEEE is a jump to the output routine in MIKBUG (character in 
accumulator A, other registers undisturbed), and is at location 0106. If 


MIKBUG is not used, this should be patched to vector to your routine 


Vv. INCH is a jump to the input routine in MIKBUG and is at location 0109. 


Patch this if a different routine is used 


VI. COLD START should be done from location 0100 hex. Warm start is 
automatically setup and stored in MIKBUG's P.C. (A048 and A049). This is set 


up at location 0183 


Vil. STACK is initialized at 0186 and its top is set to AO7F in MIKBUG's 
RAM. If different stroage is allocated for the stack, allow at least 128 
BYTES. *|MPORTANT - at location 0943 the bottom of the stack is referenced 


lf the stack is moved this reference should be changed accordingly! 


VI TT. PUNCH LIMIT for dumping the source are set up in MICRO BASIC PLUS at 
locations 01C3 and 01C8., If MIKBUG is not used, these should be changed 


accordingly. 


|X, PROMPT CHARACTER is stored at location 01D4. This may be changed if 


desired, 
X, BACKSPACE CODE is stored at location 02D4. This may be changed 
Xl. CANCEL CODE is at locations 02E3 and 07C2. These may be changed if 


both are changed identically 


XI1. MON returns to MIKBUG. If a different monitor is used, the entry 


address at location O15F should be changed to that of the monitor used. 


XIII 
0000 


00B0-00FD 


0100 
0103 
0106 
0109 
010C 


O10F- 
O15F- 
01B7- 
01C3- 
01C8- 


01D4 
02D4 
02E3 
07C2 


0D4D- 


OD4F 
OFFF 
LEFF 
1F00 
LFFF 


For 

A000 
A002 
A004 
A048 
AOTF 
E0E3 
E1AC 
E1D1 
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. MEMORY ASSIGNMENT 


- 0003 


0110 
0160 
01B8 
01C4 
01C9 


OD4E 


MI KBUG users: 


- A003 
- A005 
- A049 


Random number locations (must not all be 00) 
Undi mensioned variable storage 
START entry point 

RESTART entry point 

} UMP to OUTPUT CHARACTER 

} UMP to | NPUT CHARACTER 

} UMP to BREAK routine 

MEMORY END pointer 

Monitor program entry point address 
Stack address 

Low punch limit address 

High punch limit address 

Prompt character (!) 

Backspace code (control-H) 

Line cancel code (control- xX) 

Line cancel code (control- xX) 
Pointer to end of user's source program 
Start of users source program 
Actual end of memory (4K system) 
Suggested MEMORY END (8K system) 
Suggested EXT address (8K system) 


Actual end of memory (8K system) 


Stack end 

Low punch limit 
High punch limit 
MI KBUG PC 

Stack beginning 
MIKBUG entry point 
|NPUT routine 
OUTPUT routine 
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APPENDIX D 


THE EXTERNAL STATEMENT 


The EXTERNAL (EXT) statement is internally set up to do a "JSR" to 
location 1F00. This can be found in BASIC at location 0701 and should be 
changed according to memory organization used. It IS important that all EXT 


routines exist beyond the address set up as the end of memory 


At first glance EXT seems limiting since only one address can be jumped to. 
This is not the case however. All non dimensioned variable are stored In 
fixed locations requiring three bytes each starting at location 00B0. (A = 
0080, B = 0083, C = 00B6, etc.). They are stored as packed BCD with the 
least significant digits in the highest address (L.S.D. of A are in 0082). 
With this in mind, a variable can be chosen as a reference such that upon 
execution of EXT that variable can be read from memory and used as an offset 
or index in A "jump table". Using this method, one can have many, program 
selected, EXTERNAL routines available All EXTERNAL routines should end with 
an "RTS". Be sure to adjust “memory end" as required if using this feature 


of MICRO BASIC PLUS 


EERE KEELER ERR EEE ER RKRE REE EER REX 
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PATCHES TO TSC MICRO BASIC PLUS TO ALLOW OPERATION WITH 
SWTBUG CSNTPC>) OR MINIBUG CMOTOROLA® MONITORS. 


COPYRIGHT CC) 1978 BY 

TECHNICAL SYSTEMS CONSULTANTS, INC 
P.O. BOX 2574 

WEST LAFAYETTE, INOIANR 47966 
C3179 423-5465 


THE DIFFICULTY IN RUNNING TSC MICRO BASIC PLUS ON OTHER 
THAN MIKBUG MONITORS IS IN THE BREAK ROUTINE CALLED 
“INTBRK" AT $8452.- THIS ROUTINE WAS WRITTEN FOR A PIA 
CONTROL FORT RATHER THAN AN ACIA SERIAL PORT. A NEW BREAK 
ROUTINE IS SUPPLIED BELOW. UNFORTUNATELY, THIS ROUTINE 

IS TOO LARGE TO FIT IN THE SPACE OCCUPIED BY "“INTBRK". 

FOR THIS REASON. YOU MUST PLACE THE SUPPLIED BREAK ROUTINE 
ELSEWHERE IN MEMORY. WE RECOMMEND THAT YOU LOWER THE _ 
MEMORY END ADDRESS YOU PATCHED IN AT $010F BY 25 (DECIMAL? 
TO ALLOW ROOM FOR THIS ROUTINE TO BE ENTERED IN MEMORY. 
WHEREVER YOU PLACE THE ROUTINE <IT IS RELOCATABLE AND 

CAN BE PLACED ANYWHERE IN RAM}, BE SURE TO PATCH THE 
ADDRESS OF WHERE THE NEW BREAK ROUTINE STARTS INTO 

MICRO BASIC AT $810D IN PLACE OF THE @452 ALREADY 

THERE. THE OLD “INTBRK" ROUTINE MAY BE LEFT IN MEMORY 

AND WILL BE IGNORED. 


AN EQUATE IS USED BELOW TO SET THE BASE RDDRESS OF 
THE SERIAL I O PORT CACIA>. IF YOU ARE USING SWTBUG, 
THIS ADDRESS IS se004 (THIS IS WHAT IS USED IN THE 
ASSEMBLY BELOW). IF YOU ARE USING MINIBUG, THIS 
ADDRESS IS #8068. AND IT WILL BE NECESSARY TO CHANGE 
THE TWO REFERENCES TO ACIA AND ACIA+1 IN THE OBJECT 
CODE GENERATED BELOW. 


dook = REMEMBER TO PUT THE ADDRESS OF “EXTBRK" AT $016D 


8064 
1FE6 


LFE6 
1FE? 
1FEA 
1FEB 
1FED 
1FEE 
LFEF 
1FFe 
LFF 4 
LFF6 
LFFS 
1FFA 


ACIA EQU $8004 SETUP BASE ADDRESS OF ACIA 
ORG $1FE6 ORG AT END OF 8K SYSTEM 
36 EXTBRK PSH A 
B6 80 04 LDR RAR ACIA 
44 LSR A 
25 be BcS BREAK2 
32 BRERKL PUL A 
39 RTS 
B6 8@ 865 BREAK2 LDA RAR ACIA+1 
84 7F AND A #$7F- 
81 83 CMP A #3 
26 FS BNE BRERK1L 
B6 99 LDR R #$99 
7E 04 61 JMP $0461 
END 


NO ERROR¢CS) DETECTED 
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APPENDIX E 


INSTRUCTION SUMMARY 








COMMANDS STATEMENTS FUNCTIONS 
RUN LEST: GOTO ABS 
L | Sit READ GOSUB SGN 
SCRATCH DATA ON- GOTO RND 
MONI TOR RESTORE ON GOSUB TAB 
BREAK | NPUT RETURN SPC 
PRI NT FOR 
REM NEXT 
END | F- THEN 
DI M EXTERNAL 
MATH OPERATORS RELATIONAL OPERATORS 
(unary) Minus = Equal 
(unary) Plus < Less than 
* Multiplication > Greater than 
/ Division <= Less than or equal 
“ Exponentiation >= Greater than or equal 
+ Addition <> Not equal 


- Subtraction 


Line Numbers 0, -too® 99.99 

Constants - 99999 to +99999 

Variables - single letters, A to Z, may be subscripted 
Backspace - control H 


Line cancel - control X 
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APPENDIX F 


SAMPLE PROGRAMS 





















































































































































10 REM BASIC PLUS 'SWITCH' 

12 REM THE OBJECT OF SWITCH IS TO REARRANGE A 

14 REM RANDOM SEQUENCE TO NUMERICAL ORDER, LEFT TO RIGHT. 
16 REM THIS IS DONE BY 'SWITCH'ING A PARTIAL 

18 REM SEQUENCE STARTING FROM THE LEFT. FOR EXAMPLE 
20 REM SWITCH 3 WOULD REVERSE THE SEQUENCE OF THE FIRST 
22 REM THREE NUMBERS FROM THE LEFT. 

25 DIM M(9) 

30 FOR 1=1 TO 9 : M(I)=10-I : NEXT I 

40 FOR 1=1 TO 10 

50 A=RND/12+1 

60 K=M(A) : M(A)=M(1) : M(1)=K 

70 NEXT I 

80 PRINT "THE SEQUENCE IS ":T=0 

90 GOSUB 220 

100 INPUT " SWITCH HOW MANY ",D 

110 IF D>0O IF D<10 G8TO 120 

115 GOTO 100 

120 B=1:T=T+1 

130 IF D<=E GOTO 150 

140 F=M(E) :M(E)=M(D):M(D)=F : D=D-1 : E=E+1 : GOTO 130 
150 FOR 1=1 TO 9 

160 IF M(I)<>I GOTO 90 

170 NEXT I 

175 GOSUB 220 

180 PRI:PRINT "YOU WIN IN ";T;" MOVES" 

190 PRI:INPUT "WANT TO PLAY AGAIN (YES=1) ",T 

200 IF T=1 GOTO 30 

210 END 

220 FOR I=1 TO 9:PRI M(I);:NEXT I:RET 
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! 

'LIST 

10 REM TEST OF RANDOM NUMBER DISTRIBUTION 

15 DIM X(9) 

20 GOSUB 1000 

30 INPUT *NUMBER OF TIMES ",A 

40 FOR B=0 TO 9: X(B)=0: NEXT B 

50 FOR B=1 TO ABS (A) 

60 C=RND/10: X(C)=X(C)+41 

70 NEXT B 

80 GOSUB 1000 

90 PRINT TAB(10);"NUMBER"; TAB (20); "TIMES" 

100 PRINT TAB(10) ; "------- "; TAB (20) ; "----- ":PRI 
110 FOR 1=0 TO 9:PRI TAB(12);1;TAB(21);X(I) 

120 NEXT I 

130 GOSUB 1000 

135 R=0 
140 FOR J=0 TO 9: R=R+(J*X(J)): NEXT J 
150 PRINT "AVERAGE = ";R/A;" ";R-(R/A*A) 
155 Z=2 

160 IF R/A<4 LET Z= 
170 IF R/A>4 THEN Z 
180 GOSUB 1000 

190 ON Z GOSUB 300,400,500 













































































1 














3 






































200 END 
300 PRINT "AVERAGE IS LOW":RETURN 
400 PRI "AVERAGE IS OK!!": RET 500 PRIN *AVERAGE IS HIGH":RET 























1000 PRI:PRI: RET 





| RUN 





NUMBER OF TIMES ? 1000 














NUMBER TIMES 
0 101 
97 
110 
102 
93 
96 
100 
103 
97 
101 








OMDANHDOBPWNE 





AVERAGE = 4.481 
AVERAGE IS OK!! 
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MICRO BASIC PLUS SOURCE LISTING 


MICRO BASIC PLUS 
COPYRIGHT (C) 1976 BY 


TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 
W. LAFAYETTE INDIANA 47906 


ee HM HM MH HM HMM HM 


UATES 

EQU 
DR EQU 
BG EQU 
EN EQU 
RN EQU 
TR EQU 
MONPC EQU 
STKBOT EQU 


* TEMPORARY STORAGE 


RNDM RMB 
BUFPNT RMB 
FORSTK RMB 
DI MPNT RMB 
XTEMP3 RMB 
DATAST RMB 
DATAPT RMB 
TRYVAL RMB 
CRFLAG RMB 
QMFLAG RMB 
ROWAR RMB 
ROWCON RMB 
COLCON RMB 
TABFLG RMB 
DIMFLG RMB 
RUNFLG RMB 
DATAFL RMB 
SUBCNT RMB 
LETFLG RMB 
FLDCNT RMB 
NXPNTR RMB 
XTEMP RMB 
XSAVE RMB 
XSAVE2 RMB 
NUMCNT RMB 
NEGFLG RMB 
NOEXFL RMB 
EXTRA RMB 
COUNT RMB 
STKCNT RMB 
AUXCNT RMB 
S| GN RMB 
AXSI GN RMB 
OVFLBF RMB 
XTEMP2 RMB 
XTEMP4 RMB 
XTEMP5 RMB 
CPX] RMB 
CPX2 RMB 
STKEND RMB 
CHRCNT RMB 
OPSTAK RMB 
AC RMB 
NUMBER RMB 
AX RMB 


PEA HA AAA 
> > mM > Hot 
SGoOomMNDc00a 
OoOFRMOODOOm 
SOwornrom 


W W&W W UW FE UW PO PO DO PO DO Fe Ft st es as st BF DD DO DO DO FO es es es es es mw FM Fs BS BD BD NSN ES 
BRO 
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0068 BUFFER RMB 72 
* LABLE TABLE 


LBLTBL RMB 78 
STKTOP RMB 2 


* CONSTANTS 
0008 BACKSP = EQU $8 
0018 DELCOD EQU $18 
0021 PRMPTC EQU $21 
0100 ORG $ 


* MAIN PROGRAM 


0100 7E 01 A6é START ~~ J MP MI CBAS }MP TO BEGIN 
0103 7£ 01 BO RESTRT J MP Fl LBUF 
* EXTERNAL |-0 ROUTINES 
0106 7E El Dl OUTEEE J MP $E1D1 
0109 BD El AC INCH J SR SELAC 
010C 7E 04 52 BREAK J MP | NTBRK 
O10F 1E FF MEMEND FODB S1LEFF 


* KEYWORD AND J UMP TABLE 


0111 50 KEYTBL FCC ; PRI 
0112 52 49 

0114 04 A6 FDB PRINT 
0116 49 FCC + UNP; 
0117 4E 50 

0119 07 98 FDB | NPUT 
0118 49 FCC CSE 
011C 46 20 

O11E 08 B2 FDB | F 
0120 4C FCC SLET: 
0121 45 54 

0123 07 72 LETADR FDB LET 
0125 46 FCC ; FOR; 
0126 4F 52 

0128 09 76 FDB FOR 
012A 4E FCC , NEX; 
012B 45 58 

012D 09 9D FDB NEXT 
O12F 47 FCC , GOT; 
0130 4F 54 

0132 07 81 FDB GOTO 
0134 47 FCC ; GOS; 
0135 4F 53 

0137 09 2B FDB GOSUB 
0139 4F FCC ; ON 
013A 4E 20 

013C 08 76 FDB ONGOTO 
Q13E 52 FCC , RET; 
013F 45 54 

0141 09 53 FDB RETURN 
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, REA; 
READ 
, DAT; 
DATA 


FCC 
FDB 


rw 
—= ON 


MN Ln c 
Lo =) 


CO sFWO 
a i i 


lan an ian) 


FCC 
FDB 


=> 
moe 


—a-— co 
a i ed 


coma 
a+ a a 


lan an am) 


RESTOR 
‘DIM; 


‘RES; 
DIM 


FCC 
FDB 


MO 
Imo 


MN LN ©& 
wmorswta 


Awa 
tt Lo 


oOo 


FCC 
FDB 


aa 
+e 


FMW 
ast © 


NOLO 
MLO LM 


lan Kanan) 


, EXT; 
EXTRNL 


FCC 
FDB 


t+ 
oka) 


LQ CO rm 
=a Ln © 


moo=—t 
LOLOL 


lan an am) 


‘ MON; 
MONI TR 
‘END; 


FCC 
FDB 


mic 
alu 


AaAuo& 
atu 


OAw 
moOLmoOL”mo 


oOo 


FI LBUF 
‘REM; 


FCC 
FDB 


+O 
—s co 


wmoture 
—s+st Oo 


aN st 
WWW 


las ani an) 


RUNEXC 
‘RUN; 
RUN 


FCC 
FDB 


ast 
+O 


MN LO re 
wmonwsta 


worm 
WOWWOWO 


lan ana) 


FCC 
FDB 


Lui 
—sTLO 


Nw me 
IN LN 


amou 
WOWOWO 


oOo 


‘LIS: 
LIST 
, SCR; 


FCC 
FDB 


om UO 
wm Lu 


OMNM 
+t oO 


oOnM 
~m~ m~ 


lan an ian) 


MI CBAS 


FCC 
FDB 
FCB 


; RND; 
EVAL88 


FCC 
FDB 


FCTTBL 


a a) 
=a O 
to <tF @ 


maou! 
~ me m~ 


lan Kani an) 


‘ABS: 
EVAL85 
; SGN; 


FCC 
FDB 


moO 
mM co 


aN =< 
st st oO 


onMmM 
©O CO CO 


lan an am) 


SET START 
GO CLEAR 
SET END 


SAVE X 
SAVE 


EVAL86 
#START 
XTEMP 3 
#DATAST 
CLEAR 
ME MEND 
XTEMP 3 


FCC 
FDB 
FCB 
INITIALIZATION 
L DX 
STX 
L DX 
BRA 
L DX 
STX 


CLRBEG 
CLRBG2 


x 


BUMP THE POINTER 


CLEAR ACC. 
CLEAR BYTE 
RETURN 
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cc 
Lu 
= 
=a MM lu 
— oO wn 2 
St oO wm oc e ~-— . 
lu a | [aa [aa lu aa ~ or — ow 
Oo — tu lu ~ bt ~ - a lui = =O lu . 
<x = = wei el od = oc a> oc Duce Oo D> Rr 
oc ao — uo aU 7 — lu m=acoO ruw — [a a am) DD = 
oO > a > =< “xe OO vw FOumS Dra F ore) Ca ._ 
wn lu =a x= o=<— aU > = a> oc =U CO oc . <O .-.D 
ao ao ao > O Oc at <= lu [aa] oO -—w wmOoc Lu Ox luce uw mOUP®D 
— Ast oO x a ke O oO x= x aOom~ Mer <t<t >< ro t= ao 
lu au a a > =a — oO | al mw 2a. =a x lu a a - FF 
i Lu 4 > a lu hr —<o _D=< e oO - “M OF OF mW aU OODO 
oO oO lu =2 a tu —_ a. Lug Lu itt CO 2m —_ - —_~ oO lw =a -- 
ll co | > I I — | tt > = a mna>u —Fr co | | al arFo>Sae lo 
oO uO lu Lu — tu lu onD Dw =<iInMm > = bs — <r wowwm = lu Fw Www D=t_u DO 
oO nO uw wn wn wn wn ao ow nm — co lu cH4hNU —aA oO, a n— 41 CONNA—_OO 
uw GN 
> m 
co + 
a | ao cc cc UO cc coc 
Onaxa - ao MUMNF- ©} =2ruw — cu wo Ni tN > co F- m Iu Ocotr-oco MrRRFRF HS + 
wiac Pr = D> rOUN1LOMOE mSsuuwaTr<c>D > uwoDuOau D= Dude DuD qqQea2a2u4u << 
aonw a MmMatu=>moa Hau u4>0TM aa wmmouOoO>~Y ao mx<OM UM IMSCFUVUOU <u IW 
ocrOodc = mS]rower 2S <  SD eer UO KO DAUD AuWd Sue «K_ Owe tb ne eer oe aS 
no 9 ee — ceOoOmaroswink wu _ MOUAD]=_ _wm_ m—_ MOF —D ~-M— Oe _ nn _ wn DmodorTrorond 
O # WO HSH Hx<OTFaA OCA OHKOA HOLL OKUL Huu Hox uw uUnmoKtu Su OunFu #FZ>POUZDVZWMaA ax 
oO 
= 
= —< <<. —< —<«<— [=a] —< —< =—a=<=tm 
oc >< >< ao >< >< W >< >< or >< oo Kr TOO tO tor Pt TO ter at tor OTTO to tte ao 
NAKrFWM Lu AFOADEFHNOFOOAFFONOWN WWE []awmZaZraAanr~e nnZoolaZaw-e-eenwaZzadraZn=] 
am4Mo = WM 4 MAD 1H IMM 1 3 mn OO OO oo on 6 om 5 Om om o_o 5 im 31 mo 
—_— 
Ww uw ~N wo ~ Fe) co 
— | > > > > m _> 
[=a] Lu [=a] [aa] [aa] faa) [=a] [wa] 
oO © ii a i i ii i 
= * mw uw mw iw uw uw 
uO oO CO LL. CO AN s+ co <= (or) oO com [aa) ive} a —ac 
a otro +o oa ww +O co wom m~ s+ wo tu st 
NAAM ADDO TBDONDDODTD DONA TFNMOOA CG SCOUuUMOMHAM titOCODDOMONTme~MNOFUWIWLIOWON me 
moow StBODODNOTPODODONDONDOCOGD SDWUUDOMo ADDOONTHODOADMNMNNGOOG® 
Own A Wied a Ot ta I OOO OO ~~ I~ OU WO OUWIOL A OOUIWOKH4 OW Mm m~ ONMm™~OUOOmOwoOuw 
co Ou. co OnWDWVUADWOUUWIN DAUMAOMAN=TAONDAONNOUDMOA MANOA TONANDANDANDOM~-ADDANDArR 
woamaui DMO DOUUID MO OMA DMM cao MOA WwW AM AMm~MAUWIAMNOMm~-AMDOOAUW AMMN~DOUWOMMNM~ ADAG 
—a=—<—<— MAMMANMONMONMOOVLUVLCUUVULOA AA AAO OW Www wee wee ween DDODDOOO Oediedariartiris AN 
caeoeiri eared ete etet ested eters eset ets tie tie te tie tet es tt et es rs sh a a es st et ONION ONION ONT GNI ONS ONS ONS ON GSI ONS OONSINGS NS 


oO Oe DoDD DODWDDWDOOOODODOVOWVWAWOWOOBWOAWOVOVOWODWOAOODDWAWOOOODWOOOODOOOOOOOOOOOCOe 


ME MEND 


* PUT LINE IN PROGRAM STORAGE 
L DX 


STUFLN 


0223 FE 01 OF 


SOOO COCOO 
BRO RO RO RY MY RYO MY 
VU WW RYO RY RY RY 
NTO LrAOD 
NWOCOWW 
MOM ere 


none 
nMrIoD 


SDOoO4mOND 


fe ce ce ee ee ee ee ee a SSS SS 
oOOCOON & 


BO BRO RO PY PY PO PY PO PY PY PY PY PY PY MY MY PY 
anu kL HH HL LH LH HLH HW WD WY WY GW GW GW 
VoOOMNVWOMHLNHY TOY oan 
MOoOMwHAD~ADMVIODWwHAMDMFOMT 


mm 
NS 


OMNMINIDOWODNF 
HAMNMDMNMMYMUO TMH 


noo 
uaa 


DVCOCOWONYSTLPONWOMNDHUMNLO 
Oo 
a 


MmUDDODOSDAUDGSHADOOTUADWAMAGD 


oOamrv 
oFN 


NRO 


DBODDODODODDODDODDODDODODODOOOODOOOOG 
NS 


BO BRO BRO PY PY PY PY PS PY PY PY PY PS PY PY PY PY PY PY PS PY PY PY PY PY PY PY PY 
Co CO CO OO OO MH! JIE OI OS OS OSS HINO ND DDN MN MD VIO O07 1 
AYSYOUIWEOMDWOANNILWODTMYVWOWOMLVYTYVWOD & 


omoo 
rPmoo 


SoOoOCCOCOeO 
BRO RO RYO RY MY YY 
WW WWcc 
YRENOCULr 
Nowouwn 
PoOnms08.® 
SOWWOOD 
sOeCLrFrVIDJ 
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STX CPX1 
LDX XTEMP 2 SET POINTER 
STX BUF PNT SAVE POINTER 
A5 J SR FNDLIN GO FIND LINE IN STORE 
STX XSAVE SAVE POINTER 
TST B DID WE FIND |T? 
BNE | NSERT |F NOT GO INSERT 


* REPLACE EXISTING LINE WITH NEW ONE 
REPLAC INC B |NC THE COUNTER 


LDA A 0,X GET A CHARACTER 
| NX BUMP THE POINTER 
CMP A #$D IS |T A C.R,? 
BNE REPLAC 
4C REPLA4 STA B OFSET2+1 SETUP OFFSET 
LDA A #$FF GET COUNT 
NEG B 2'S COMP. IT 
BSR ADJ END GO FIX END PNTR 
L DX XSAVE RESTORE THE POINTER 
4D REPLA5 CPX ENDSTR END OF STORAGE? 
BEQ REPLAG 
OFSET2 LDA A 0,X 
STA A 0,X MOVE A CHARACTER 
| NX BUMP THE POINTER 
BRA REPLAS REPEAT 
REPLA6 LDX XSAVE RESTORE THE POINTER 


* |NSERT A LINE INTO PROGRAM STORAGE 
INSERT LDA A’ CRFLAG LONE C.R. ? 
BNE 


| NSER6 
4D L DX ENDSTR 
LDA B  CHRCNT GET CHAR. COUNT 
ADD B~ #2 BIAS FOR LINE NUM 
6C STA B OFFSET+1 SETUP OFFSET 
BSR AD] END FIX END PNTR 
|NSER2 CPX XSAVE DONE? 
BEQ | NSER3 
DEX DEC THE POINTER 
LDA A 0,X GET A CHAR 
OFFSET STA A 0,X 
BRA | NSER2 MOVE IT 
|NSER3 DEX 
68 ] SR PUTLB2 PUT LAB 
a BUMP THE POINTER 
INSER4 STX XSAVE SAVE POINTER 
L DX BUF PNT 
LDA A 0,X GET CHAR* 
| NX BUMP THE POINTER 
STX BUF PNT SAVE 
L DX XSAVE RESTOR PNTR 
| NX 
STA A 0,X SAVE IT 
CMP A #$D IS IT A C.R.? 
BNE | NSER4 
BO |NSER6 | MP FIL BUF 60 TO MAIN LOOP 


* AD) UST THE END OF PROGRAM POINTER 


4— ADJEND ADD B- ENDSTR+1 
4D ADC A ENDSTR ADD IN VALUE 
STA B CPX2+1 
STA A CPX2 SET END POINTER 
B3 J SR CMP X1 


BCC ADJ EN2 


oooOoCoea 
BO BRO RO RY 
Ee row wo 
NIOMNMWHO 
sowuntTt 
mm wown~ 


SOTTO OODODOOODODOOOOG 
RO DDD DY DY DY DY DY NY DY DY NY DRY NYY DY NY DY 
OOOO TDWWWWIWAIWIWOOYrPYSrYrYrYS 
FPWR OMNDDWOHAMWNYH TNOHWO~TUM 
NID OW UININ HB MYMNMNMWUINI WOTUWLO 
SWOOAMMWANK ANH ODAOMAD 


SOOO CCOO 
BRO RO RO PY PY PY PY 
AANDANIDAND 
aUMOLYoOWMd 
WWNrYLEOMOW 
ONIHMHOMD 


los kas hank anh ani ani anh anki an kak ark ae) 
BRO RYO RYO RYO RYO PY PY PY PY PY PO PO 
m™™mmmMo0U00T00U0 
ODRNDOTD0O LS~AINWwo 
tw —I RO CO NM ~~! @ NR COM COW 
WOOmrOrPOWmMDOFD 


E>Powo 


SOOT DDOOOOCOG 
WN NYIDYIPRYDRINYDDN DIN DY 
ommaa4a47a4ammm 
SUWIOOUWH TNO YS 
wOomMMowoorIeY amon 


wWwwonownroc 


oo 
Www 
oo 
Nr 
oo 
>o 


oo 
OU 


SOO AD ow 
oO 


VNUUW S&S 


co ee ee ee os ee ee) 
Oe Se oo = a) 


03 
E6 


nS oOo 
wo Oo 


ooCCoOoO 
OocCcwor 


oO OOOnNv oor ma 
DD &S OW PRP Oo Ww ooma 


onrvn 
oN &> 


00 


on 
om 


61 


PE 
on 


09 


68 


3E 


3E 


01 


4c 


STA B 


RTS 


ADJ) EN2 LDA A 


* TRY TO FIND LINE 


END 
STA A END 

§ 

| 


#590 
} MP MI STAK 


FNDLIN 


FI NDLN 
FINDL1 


FINDL2 
FINDL4 


FI NDL6 


* FIND A 


FNDCRT 
FNDVAL 


* | NPUT 


| NCHAR 


| NCHR2 


| NCHR4 


* PRINT 


PCRLF 
PDATAI 


PCRLF2 


CRLF ST 


LDA A 
LDA B 


L DX 
CPX 
BNE 
INC 
RTS 
CMP 
BHI 
BNE 
CMP 
BHI 
BNE 
CLR 
RTS 
BSR 


BRA 
CG, 


RTS 


> > YY} 


NUMBER+2 
NUMBER+1 
#STORSP 
ENDSTR 


FI NDL4 


FNDCRT 
FI NDL1 


IN STORAGE 


#$D 


0,X 
FNDVAL 


| NCH 


#BACKSP 


| NCHR2 


#BUFFER 


| NCHR4 


CHRCNT 
| NCHAR 


#DELCOD 


| NCHR4 
CHRCNT 


SAVE NEW POINTER 
RETURN 
SET ERROR 


SETUP POINTER 
END OF STORAGE? 


RETUR 


CHECK M.S. DIGITS 


CHECK L.S, DIGITS 


CEAR FLAG 

RETURN 

GO FIND C.R 

BUMP THE POINTER 
REPEAT 


GET THE CHAR. 
1S |T A BACKSPACE? 


BEGINNING OF BUF ? 


BACKUP ONE POS. 
DEC CHAR. COUNT 


DELETE LINE ? 


RETURN 


CARRIAGE RETURN & LI NEFEED 


STX 
LDX 
LDA 
CMP 
BEQ 
JSR 
I NX 
BRA 
LDX 
LR 
RTS 
FCB 


XSAVE 


#CRLFST 


! 


#4 
PCRLF2 
OUTCH 


PDATA] 
XSAVE 
FLDCNT 


SAVE X REG 

POI NT re STRING 
GET CHA 

ese bal A 


OUTPUT CHAR 

BUMP THE POINTER 
REPEAT 

RESTORE X REG 
ZERO FIELD COUNT 
RETURN 


$D,$A,0,0,0,0, 4 


oDoCoe 
ty WW LWW WW 
ooCoeo 
MOQ Xoo 


ooo oOoC ae 
WW W& WW WW LW 
[ll eel aetna aed 
wown7oruwnrn 
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DOoOCOCCe 
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Wr 
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WoOWoworWw 
ond aITYD 


NIYW WD UOT YH HHO WO DHONI OH WOAINONCOWWWW Cc 
DOADALSOWOOD &BHAOMODAPYPOOWORIAPOAIHI HS 


NONcorYD 
SOOtr am 
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oO 


08 
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oO 
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wo 
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oorE 
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B4 


D1 
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* TEST FOR STATEMENT TERMINATOR 


TSTTRM CMP A #$D C,R,? 
BEQ TSTTR2 
CMP A #': COLON? 
TSTTR2 RTS RETURN 


* CLEAR NUMBER THROUGH NUMBER+2 
UPSCLR JSR STAKUP 


CLRNUM CLR A 
STA A NUMBER 
STA A NUMBER+1 
STA A NUMBER +2 
RTS 


* CONVERT NUMBER TO PACKED BCD 
BCDCON BSR CLRNUM CLEAR NUMBER 


STA A NOEXFL 

STA A NEGFLG 

STA A NUMCNT 

J SR SKI PSP SKIP SPACES 
CMP A #' + IS IT A +? 
BEQ BCDC01 

CMP A IS ITA-= ? 


#!- 
BNE BCDCO1 
COM NEGFLG SET FLAG 


BCDCO1 | NX 
BCDCO1l JSR CLASS GET A DIGIT 
CMP B #3 1S |T A NUMBER? 
BEQ BCDCO2 
LDA A NEGFLG 
| MP FIXSIN GO FIX UP THE SIGN 
BCDCO2 | NX BUMP THE POINTER 
STA A NOEXFL SET NO EXEC FLU 
AND A #$0F MASK OFF ASCI 
LDA B- #4 SET COUNTER 
BCDCO4 ASL NUMBER+2 
ROL NUMBER+1 
ROL NUMBER SHIFT PREV. OVER 
DEC B DEC THE COUNTER 
BNE BCDCO4 
ADD A NUMBER+2 
STA A NUMBER+2 SAVE NEW VALUE 
INC NUMCNT |NC NUMBER CNTR 
BRA BCDCO1 
* FIND NEXT BLOCK 
NXTBLK LDX BUF PNT RESTORE POINTER 
NXTBL4 LDA A 0,X GET A CHAR 
CMP A #! 1S 1T A SPACE? 
BEQ SKI PSP 
| NX BUMP THE POINTER 
BRA NXTBL4 REPEAT 


* CONVERT AND SKIP 
CONSKP BSR BCDCON 
DEX 


* SKIP ALL SPACES 
SKPSPO I NX 


ooOoCoOe 
ty WW LWW WW 
AADD 
mO yoo 
WN Ooo 
won>Ae DD 

—NrNY @& 

(ovascas) 


oDoOoCoCCOea 
WWW WWW 
ee oe oe co) 
WOOD frm 
NOON OWWOD 
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nNdeooO 
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mo 
lwo] 
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SKIPSP LDA A 0,X GET CHR FROM BUF 
CMP A #$20 1S |T A SPACE? 
BEQ SKPSP0 


SKIPS4 RTS RETURN 
* FIND NEXT BLOCK NOT EXPECTING A SPACE 





NXTSPC LDX BUF PNT SET POINTER 
NXTSP4 JSR CLASS GO CLASSI FY 
CMP B #2 1S |T A LETTER? 
BNE SKI PSP 
| NX BUMP THE POINTER 


BRA NXTSP4 
* FIND KEY WORD IF POSSIBLE 


FNDKEY JSR SKI PSP SKIP SPACES 
STX BUF PNT SAVE THE POINTER 
STX XSAVE 
L DX #KEYTBL POINT TO KEY WORDS 
FNDKE2 LDA B- #5 
FNDKE4 CMP A 0,X TEST THE CHARACTER 
BNE FNDKE6 
STX XTEMP 3 SAVE POINTER 
L DX XSAVE 
| NX BUMP POINTER 
LDA A 0,X GET CHAR 
STX XSAVE 
L DX XTEMP 3 REST. PNTR 
| NX 
DEC B 
CMP B #2 
BNE FNDKE4 |F NOT DONE REPEAT 
FNDKE5 RTS RETURN 
FNDKE6 I NX BUMP THE COUNTER 
DEC B 
BNE FNDKE6 
LDA A 0,X GET CHARACTER 
BEQ FNDKES |F ZERO, END OF LIST 


STX XT EMP 3 SAVE POINTER 


DE 


ooo CoCo CoO OCO COO OCO OOO OOO COCO COCO COCO OOOO Om 
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BEQ  EVAL2C 
CMP A  AUXCNT 
BEQ EVAL10 
EVA12C CMP A #9 
BLS EVA12D 
LDA A #$24 
BRA EVAL19 
EVA12D PUL A 
PUL B 
SUB A #6 
ASL A 
STA A OPOFF41 
LDX  #OPTBL 
OPOFF LDX  0,X 
JSR 0X 
}SR -ZCHK 
BVC - EVAI2A 
EVAL18 LDA A #$23 
EVAL19 |MP  — EVAL3 
EVAL1O JMP EVALI 
OPTBL DB ADD 
FDB SUB 
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FOB ABSVAL 
FDB = MULT 
FDB —ODI-VI'-DE 
FDB -EXPON 
x 
** GET VALUE 
* MOVE 3 BYTES 
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GETVAL LDA A 0,X 
STA A NUMBER 
LDA A 1,X 
STA A NUMBER+1 
DOA AL 2, % 
STA A NUMBER+2 
RTS 
x 
x 
** STACKUP 
* ROLL OPERATIONAL STACK 
x 
STAKUP LDX  #STKEND 
STAKU2 LDA B 3,X 
STA B 0,X 
| NX 
CPX  #NUMBER 
BNE  STAKU2 
INC  STKCNT 
RTS 
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STAKD1 LDA B 0,X 
STAB 3,X 
DEX 
CPX  #STKEND-1 
BNE  STAKDI 
DEC  STKCNT 
RTS 
x 
x 
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OTHERWISE CHECK FOR 2 OPERANDS 
|F NOT, ABORT 

CHECK OVERFLOW 
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SET ERROR 


GET CLASSIFICATION 
GET OPERATOR 
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GO OPERATE 

CHECK RESULT 

|F NO OVFL, GO OPERATE AGAIN 
SET ERROR NUMBER 


POINTED TO BY X TO NUMBER 


GET VALUE 
STORE 


UPWARD 

POINT TO END 
MOVE 

SEE |F DONE 


DOWNWARD 
POINT TO STORE 


SEE |F DONE 
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ZERO THE CARRY 
POINT TO STORE 
GET ADDEND 

ADD IN AUGEND 
SAVE 

SEE |F DONE 
SET FOR OVFL 
AND AGAIN 
RESET OFVL 


SET OVFL IF NECESSARY 


SUBTRACT OF AX FROM NUMBER 


GO TEN'S COMPLEMENT 
FIX UP 
GO ADD 


S COMPLEMENT OF AX (ALMOST) 


UADD CLC 

UADD1 LDX  #NUMBER+2 

UADD2 LDA A 0,X 
ADC A 3,X 
DAA 
STA A 0,X 
DEX 
CPX  #NUMBER- 1 
BNE _UADD2 

UADD22 PSH B 
LDA B  #$02 
BIT A #$F0 
BNE _UADD25 
CLR B 

UADD25 ORA B OVELBF 
STAB OVFLBF 
TBA 
PUL B 

VADD3 RTS 

x 

**USUB 

* UNSIGNED 

x 

USUB BSR TENCOM 
SEC 
BRA —-UADDI 

x 

x 

**TENCOM 

* UNSIGNED TEN’ 

TENCOM LDX — #AX42 

TENCOL LDA A #$99 
SUB A 0, X 
STA A 0,X 
DEX 
CPX #AX-1 
BNE  TENCOI 
AND A #$0F 
STA A 1,X 
RTS 

x 

x 

** SET SIN 

* CALCULATE RESULT SIGN 

SETSIN CLR  OVFLBF 

SETSIO LDA A AX 
TAB 
AND B  #$0F 
STAB AX 
STA A AXSIGN 
FOR A NUMBER 
STA A SIGN 

ABSVAL LDA B NUMBER 
AND B  #$0F 
STA B NUMBER 
TST A 
RTS 
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xx 


: SUBTRACT AX 


SUB LDA A 
EOR A 


FROM NUMBER 


NUMBER 
#$F 0 


POINT TO AX 


SUBTRACT FROM 99 
SAVE 


ESET SIGN 
TORE 


CLEAR OVFL INDICATOR 
GET SIGN 

SAVE 

RESET SIGN 
PUT BACK 

SAVE SIGN 
FORM NEW SIGN 
SAVE 

GET MS BYTE 
RESET SIGN 
PUT BACK 

TEST NEW SIGN 





GET MS BYTE 
CHANGE SIGN 


D1 


0BC8 97 62 STA A NUMBER PUT BACK 
GO INTO ADD 


x 
x 
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* ADD 

* ADD AX TO NUMBER 
x 
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0BCA 8D 58 DD BSR RELAY 
0BCC 8D DE BSR SETSIN GO CALCULATE SIGN 
0BCE 2A OA BPL ADDO USE EITHER SIGN 
08D0 8D Cl BSR _-USUB OTHERWISE SUBTRACT 
0BD2 06 TAP SET CCR 
0BD3 28 09 BVC ADDI CHECK OVERFLOW 
0BD5 73 00 2F COM  AXSIGN CHANGE FOR AX SMALLER 
0BD8 20 0B BRA ADD15 
0BDA 8D 97 ADDO BSR —_-UADD GO ADD 
0BDC 20 OA BRA  - ADD2 GO FIX SIGN 
0BDE 8D 44 ADD1 BSR RELAY COPY NUMBER TO AX 
0BE0 BD 03 OF JSR -UPSCLR RESTORE 
0BE3 8D AE BSR‘ USUB GO NEGATE 
0BE5 7F 00 30 ADDI5 CLR  OVFLBF 
0BE8 96 2F ADD2 LDA A AXSIGN GET OLD SIGN 

x 

x 

** FIXSIN 

* SET THE SIGN ON THE RESULT 
OBEA 84 FO FIXSIN AND A #$F0 MASK 
0BEC C6 OF LDA B #S0F SET MASK 
OBEE D4 62 AND B NUMBER RESET SIGN 
0BF0 1B ABA TACK ON SIGN 
0BF1 97 62 STA A NUMBER — PUT BACK 
0BF3 39 FIX2 RTS 

x 

x 

** MULT 

* MULTIPLY AC BY AX 

x 
0BF4 8D 2E MULT BSR —- RELAY MOVE STACK 
0BF6 8D B4 BSR SETSIN GO CALC, SIGNS 
0BF8 BD 03 OF MULTO |SR  UPSCLR MOVE STACK UP 
0BFB C6 05 LDA B #5 SET COUNTER 
0BFD 96 5F MULTI LDA A AC GET MS BYTE OF AC 
OBFF 27 08 BEQ  MULT3 1F ZERO , LOOP 
0COl1 BD 0B 73 MULT2 JSR  UADD ADD IN AX 
0CO4 7A 00 SF DEC AC ONCE DONE 
0CO7 26 F8 BNE  MULT2 
0C09 5A MULT3 DEC B ONCE DONE 
0COA 27 3D BEQ  MULT4 CHECK IF ALL DONE 
0COC 8D 4A BSR ACLEFT ~— SHIFT AC LEFT 
OCOE 96 62 LDA A NUMBER 
0C10 BD 0B 84 }SR  -UADD22 
0C13 20 £8 BRA MULTI 
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** DIVIDE 

* DIVIDE AC- NUMBER BY AX 

x 
0C15 8D 0D DIVIDE BSR RELAY 
0C17 CE 00 65 LDX — #AX 
0C1A BD 0C Cl JSR ZCHK1 GO CHECK IF AX=0 
0C1D 26 08 BNE  DIVID1  [F_NOT, OK 
OC1F 86 22 DIVIDO LDA A #$22 SET ERROR 
0C21 7E 0A 8C )MP  EVAL3 
0C24 7E 0B 62 RELAY |MP  STAKDN RELAY TO STACK DOWN 
0C27 BD OB AC DIVIDI JSR  SETSIN CALC, SIGNS 
0C2A BD 0B 51 }SR  STAKUP = PUSH BACK 
0C2D 8D 29 BSR ACLEFT = SHIFT DOWN 
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** DADD 
* ADD AX TO 
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DADD SEC 
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** $1 GNUM 
* CALCULATE 
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** EXPON 
* CALCULATE 
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DADDI 


DI VI D2 
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#AC- 1 
STAKD1 


NUMBER +2 
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ROTATE 
CHECK IF DONE 
CHECK FOR DONE 


GET MS BYTE 
RESET SIGN 
STORE BACK 
GET ADDEND 
ADD IN 


SAVE 
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POSITIVE EXPONENTS UP TO 99 ALLOWED 
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0,X GET CHAR 
#1 SET UP 
#$D CHECK FOR CR 
CLAS25 
SAVE CHAR 
#' ( REMOVE BIAS 
CLASS2 CHECK ILLEGAL 
#' @ | ( CHECK LI MIT 
CLASS3 NOT LETTER 
#'Z-' ( CHECK FOR LETTER 
CLASIB 
#' *-' ( CHECK FOR ILLEGAL 
CLASS2 
#10 FIX UP 
#02 
RESTORE CHARACTER 
DONE 


XSAVE2 SAVE X REG 

#CLSTBL POINT TO TABLE 
CLSOFF+1 SET BIAS 

0,X GET CLASSIFICATION 
XSAVE2 RESTORE X REG 
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#0 
EXTERN 


ADD A 
DAA 
RTS 
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EQU 
ORG 
RTS 
END 
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